home *** CD-ROM | disk | FTP | other *** search
/ International Flesh! / International Flesh!.iso / disk1 / corpins.ms_ / corpins.bin
Text File  |  1996-06-17  |  6KB  |  237 lines

  1. '**************************************************************************
  2. '*                     Photo Screen Saver Installation
  3. '**************************************************************************
  4.  
  5. '$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9.  
  10. ''Dialog ID's
  11. CONST WELCOME       = 100
  12. CONST ASKQUIT       = 200
  13. CONST DESTPATH      = 300
  14. CONST EXITFAILURE   = 400
  15. CONST EXITQUIT      = 600
  16. CONST EXITSUCCESS   = 700
  17. CONST APPHELP       = 900
  18. CONST TOOBIG        = 6300
  19. CONST BADPATH       = 6400
  20.  
  21. ''Bitmap ID
  22. CONST LOGO = 1
  23.  
  24. GLOBAL DEST$        ''Default destination directory.
  25. GLOBAL WINDRIVE$    ''Windows drive letter.
  26. GLOBAL WINDIR$      ''Windows directory letter.
  27. GLOBAL NEEDED&          ''Number of bytes still needed.
  28.  
  29. '' List symbol names
  30. GLOBAL EXTRACOSTS$       ''List of extra costs to add per drive
  31. GLOBAL NEEDEDCOSTS$  ''List of costs needed per drive
  32.  
  33. DECLARE SUB MakeInstallList
  34. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  35.  
  36.  
  37. INIT:
  38.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  39.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  40.  
  41.     SetBitmap CUIDLL$, LOGO
  42.     SetTitle "Program Installation"
  43.  
  44.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  45.     IF szInf$ = "" THEN
  46.     szInf$ = GetSymbolValue("STF_CWDDIR") + "CORPINS.INF"
  47.     END IF
  48.     ReadInfFile szInf$
  49.  
  50.     DEST$ = "C:\CDEXPRES"
  51.     WINDIR$ = GetWindowsDir
  52.     WINDRIVE$ = MID$(WINDIR$, 1, 1)
  53.  
  54. '$IFDEF DEBUG
  55.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  56.     IF IsDriveValid(WINDRIVE$) = 0 THEN
  57.     i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  58.     GOTO QUIT
  59.     END IF
  60. '$ENDIF ''DEBUG
  61.  
  62.  
  63. WELCOME:
  64.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  65.     IF sz$ = "CONTINUE" THEN
  66.     UIPop 1
  67.     ELSE
  68.     GOSUB ASKQUIT
  69.     GOTO WELCOME
  70.     END IF
  71.  
  72.  
  73. GETPATH:
  74.     SetSymbolValue "EditTextIn", DEST$
  75.     SetSymbolValue "EditFocus", "END"
  76. GETPATHL1:
  77.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  78.     DEST$ = GetSymbolValue("EditTextOut")
  79.  
  80.     IF sz$ = "CONTINUE" THEN
  81.     IF IsDirWritable(DEST$) = 0 THEN
  82.         GOSUB BADPATH
  83.         GOTO GETPATHL1
  84.     END IF
  85.     UIPop 1
  86.     ELSEIF sz$ = "REACTIVATE" THEN
  87.     GOTO GETPATHL1
  88.     ELSEIF sz$ = "BACK" THEN
  89.     UIPop 1
  90.     GOTO WELCOME
  91.     ELSE
  92.     GOSUB ASKQUIT
  93.     GOTO GETPATH
  94.     END IF
  95.  
  96.     MakeInstallList
  97.  
  98.     IF NEEDED& > 0 THEN
  99.         GOTO TOOBIG
  100.     ELSE
  101.         CopyFilesInCopyList
  102. SrcDir$ = GetSymbolValue("STF_SRCDIR")
  103.                 CreateProgmanItem "CD Express","Photo Viewer - CD Required", MakePath(SRCDIR$,"mss.exe"),"", cmoOverwrite
  104.         
  105.     ini$ = MakePath(WINDIR$, "CONTROL.INI")
  106.     CreateIniKeyValue ini$, "ScreenSaver.photo Screensaver ", "IMAGE DIR", DEST$, cmoNone
  107.     ini$ = MakePath(WINDIR$, "AD_PREFS.INI")
  108.     CreateIniKeyValue ini$, "Photo Screen Saver ", "ImageDir", DEST$, cmoNone
  109. SrcDir$ = GetSymbolValue("STF_SRCDIR")
  110. ini$ = MakePath(WINDIR$, "WIN.INI")
  111.     CreateIniKeyValue ini$, "Multimedia Screensaver ", "Wavefile", MakePath(MID$(SRCDIR$,1,3),"mss.wav"), cmoNone
  112.  
  113.     ENDIF
  114.  
  115.  
  116. QUIT:
  117.     ON ERROR GOTO ERRQUIT
  118.  
  119.     IF ERR = 0 THEN
  120.     dlg% = EXITSUCCESS
  121.     ELSEIF ERR = STFQUIT THEN
  122.     dlg% = EXITQUIT
  123.     ELSE
  124.     dlg% = EXITFAILURE
  125.     END IF
  126. QUITL1:
  127.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  128.     IF sz$ = "REACTIVATE" THEN
  129.     GOTO QUITL1
  130.     END IF
  131.     UIPop 1
  132.  
  133.     END
  134.  
  135. ERRQUIT:
  136.     i% = DoMsgBox("Setup sources were corrupted, call Desktop Software Inc. at 203-741-8535.", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  137.     END
  138.  
  139.  
  140.  
  141. BADPATH:
  142.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  143.     IF sz$ = "REACTIVATE" THEN
  144.     GOTO BADPATH
  145.     END IF
  146.     UIPop 1
  147.     RETURN
  148.  
  149.  
  150.  
  151. ASKQUIT:
  152.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  153.  
  154.     IF sz$ = "EXIT" THEN
  155.     UIPopAll
  156.     ERROR STFQUIT
  157.     ELSEIF sz$ = "REACTIVATE" THEN
  158.     GOTO ASKQUIT
  159.     ELSE
  160.     UIPop 1
  161.     END IF
  162.     RETURN
  163.  
  164.  
  165. TOOBIG:
  166.     sz$ = UIStartDlg(CUIDLL$, TOOBIG, "FInfo0DlgProc", 0, "")
  167.     IF sz$ = "REACTIVATE" THEN
  168.     GOTO TOOBIG
  169.     END IF
  170.     UIPop 1
  171.     RETURN
  172.  
  173.  
  174.  
  175. '**
  176. '** Purpose:
  177. '**     Builds the copy list and performs all installation operations.
  178. '** Arguments:
  179. '**     none.
  180. '** Returns:
  181. '**     none.
  182. '*************************************************************************
  183. SUB MakeInstallList STATIC
  184.  
  185.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  186.     CreateDir DEST$, cmoNone
  187.  
  188. '' Corporate Screensaver Files
  189.     AddSectionFilesToCopyList "FILES", SrcDir$, DEST$
  190.  
  191.  
  192. '' Windows 3.1 screen saver files
  193.     AddSectionFilesToCopyList "WINSAVER", SrcDir$, WINDIR$
  194.  
  195. '' Images
  196.     AddSectionFilesToCopyList "IMAGES", SrcDir$, DEST$
  197.  
  198. '' Check enough disk space.
  199.     EXTRACOSTS$ = "ExtraCosts"
  200.     NEEDEDCOSTS$ = "NeededCosts"
  201.     FOR i% = 1 TO 26 STEP 1
  202.     AddListItem EXTRACOSTS$, "0"
  203.     AddListItem NEEDEDCOSTS$, "0"
  204.     NEXT i%
  205.     ''Add extra cost to Windows drive for ini/progman, etc.
  206.     ndrive% = ASC(ucase$(WINDRIVE$)) - ASC("A") + 1
  207.     ReplaceListItem EXTRACOSTS$, ndrive%, "10240"
  208.  
  209.     NEEDED& = GetCopyListCost(EXTRACOSTS$,NEEDEDCOSTS$,"")
  210.  
  211. END SUB
  212.  
  213.  
  214.  
  215. '**
  216. '** Purpose:
  217. '**     Appends a file name to the end of a directory path,
  218. '**     inserting a backslash character as needed.
  219. '** Arguments:
  220. '**     szDir$  - full directory path (with optional ending "\")
  221. '**     szFile$ - filename to append to directory
  222. '** Returns:
  223. '**     Resulting fully qualified path name.
  224. '*************************************************************************
  225. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  226.     IF szDir$ = "" THEN
  227.     MakePath = szFile$
  228.     ELSEIF szFile$ = "" THEN
  229.     MakePath = szDir$
  230.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  231.     MakePath = szDir$ + szFile$
  232.     ELSE
  233.     MakePath = szDir$ + "\" + szFile$
  234.     END IF
  235. END FUNCTION
  236.  
  237.